function [ poblacionout,resultado ] = FinalFile( poblacion,tabladatos,celltickers,cartera )


    Output = outputSistemas( poblacion(1,1:cartera),tabladatos );
    plot(Output(:),'r');
    dateaxis('x', 2, datestr(today-10));
    nombre=strcat('CateraCompleto_',num2str(cartera));
    title All
    saveas(gcf, nombre, 'jpeg');
    
    close all
    
    [poblacion(1,11),poblacion(1,12),...
    poblacion(1,13),poblacion(1,14),...
    poblacion(1,15),poblacion(1,16),...
    poblacion(1,17),poblacion(1,18)]=RatioMCIM(Output);

    outputMejor_12meses(:,1)=Output(end-10:end,1);
    outputMejor_12meses(:,1)=outputMejor_12meses(:,1)-outputMejor_12meses(1,1);
    plot(outputMejor_12meses(:),'r');
    dateaxis('x', 2, datestr(today-10));
    nombre=strcat('CateraCompleto2W_',num2str(cartera));
    title 2W;
    saveas(gcf, nombre, 'jpeg');
    
    close all
    
    poblacion(1,19) = drawdownstudy( outputMejor_12meses(:,1) );%dd a 12 meses
    poblacion(1,18)=outputMejor_12meses(end,1);
    
    outputMejor_6meses(:,1)=Output(end-5:end,1);
    outputMejor_6meses(:,1)=outputMejor_6meses(:,1)-outputMejor_6meses(1,1);
    plot(outputMejor_6meses(:),'r');
    dateaxis('x', 2, datestr(today-5));
    nombre=strcat('CateraCompleto1W_',num2str(cartera));
    title 1W;
    saveas(gcf, nombre, 'jpeg');
   
    close all
    
    poblacion(1,20)=outputMejor_6meses(end,1);
    poblacion(1,21)=drawdownstudy( outputMejor_6meses(:,1) );

poblacionout=poblacion;

% Resultado
resultado = num2cell(poblacion(1,:));


    for columna=1:cartera
        if poblacion(1,columna) ~=0
        numero = poblacion(1,columna);
        resultado(1,columna)=cellstr(celltickers(numero,:));
        end
    end
    resultado(1,15)={datestr(poblacion(1,15),'yyyymmdd')};
    resultado(1,16)={datestr(poblacion(1,16),'yyyymmdd')};

titulo =strcat('MejorCombinacionFinal_',num2str(cartera));
cell2csv(strcat(titulo,'.csv'), resultado,';',1997,',');%(fileName, cellArray, separator, excelYear, decimal)
save('resultado_beforeIB.mat','resultado')
exportExcel%xlsWrite

end

